#!/usr/bin/env tclsh

# 列出当前路径下的文件
set file [glob *]
puts "file has: $file"
# 读取文件

puts ++++++++++++++++++++
set f [open "README.md"];
## 按行读取文件内容
while { [expr [gets $f line] >= 0 ]} {
    puts stdout $line
}
close $f
## 获取当前路径下的.tcl文件

set l [glob *.tcl]
puts $l
puts "当前文件夹下tcl文件的数量为:[llength $l]"
puts [lindex $l 1]


puts "time:[file atime $l]"